home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / e / amigae21b.lha / Amiga_E_v2.1b / Sources / Examples / Ereq.e < prev    next >
Text File  |  1992-09-02  |  555b  |  18 lines
  1. /* Thanks to E lists, it's *that* simple ... */
  2.  
  3. OPT OSVERSION=37
  4.  
  5. PROC main()
  6.   DEF r
  7.   r:=request('Ahem...','Sure|Nope',NIL)
  8.   request('Your selection: \d','what do i care ...',[r])
  9.   request('More requesters coming up','sigh..',NIL)
  10.   r:=request('What will it be:','1|2|3|4|5',NIL)
  11.   request('Your selection: \d','what do i care ...',[r])
  12.   request('execbase is at $\z\h[8]','Really...',[execbase])
  13.   request('Done!','Aaaaaaaaaaaaaaaaaaaaaaaaaargh!',NIL)
  14. ENDPROC
  15.  
  16. PROC request(body,gadgets,args)
  17. ENDPROC EasyRequestArgs(0,[20,0,0,body,gadgets],0,args)
  18.